IF FIRST-OF(tt_po_nbr) THEN DO:
	str = """" + "Q" + tt_po_nbr + """".
	PUT STREAM bf UNFORMATTED str SKIP.
	str = """" + tt_po_vend + """".
	PUT STREAM bf UNFORMATTED str SKIP.
	str = """" + tt_po_ship + """".
	PUT STREAM bf UNFORMATTED str SKIP.
	str = """" + string(tt_po_ord_date) + """ """ + string(tt_po_due_date) + """ - """ + tt_po_bill + """ """ + tt_po_nbr + """ - - """ + tt_po_rmks + """ """ + tt_po_pr_list2 + """ - - """ + tt_po_site + """ - - - """ + tt_po_curr + """ - - - - """ + string(tt_po_fix_pr) + """ - - - - ".
	PUT STREAM bf UNFORMATTED str SKIP.
	str = "-".
	PUT STREAM bf UNFORMATTED str SKIP.
	str = "- - - - -".
	PUT STREAM bf UNFORMATTED str SKIP.
END.
str = """" + string(tt_pod_line) + """".
PUT STREAM bf UNFORMATTED str SKIP.
str = """" + tt_pod_site + """".
PUT STREAM bf UNFORMATTED str SKIP.
str = "-".
PUT STREAM bf UNFORMATTED str SKIP.
str = """" + tt_pod_part + """".
PUT STREAM bf UNFORMATTED str SKIP.
str = """" + string(tt_pod_qty_ord) + """ """ + tt_pod_um + """".
PUT STREAM bf UNFORMATTED str SKIP.
str = """" + string(round((tt_pod_pur_cost * 0.95),2)) + """ -".
PUT STREAM bf UNFORMATTED str SKIP.
str = "- - - - - """ + string(tt_pod_due_date) + """ - - """ + tt_pod_so_job + """ - - - - - - - - - - - -".
PUT STREAM bf UNFORMATTED str SKIP.	
IF LAST-OF(tt_po_nbr) THEN DO:
	PUT STREAM bf UNFORMATTED "." SKIP.
	PUT STREAM bf UNFORMATTED "." SKIP.			
	str = "-".
	PUT STREAM bf UNFORMATTED str SKIP.
	str = "- - - - - - - - - """ + tt_po_fob + """ """ + tt_po_shipvia + """".
	PUT STREAM bf UNFORMATTED str SKIP.			
	PUT STREAM bf UNFORMATTED "." SKIP.	
END.